home *** CD-ROM | disk | FTP | other *** search
/ PC Pro 2005 June (DVD) / DPPRO0605DVD.iso / Install / program files / Borland / BDS / 3.0 / Demos / Delphi.Net / VCL / AppEvents / MAIN.PAS < prev   
Encoding:
Pascal/Delphi Source File  |  2004-10-22  |  4.0 KB  |  148 lines
  1. unit main;
  2.  
  3. interface
  4.  
  5. uses
  6.   Windows, Messages, SysUtils, Classes, Graphics, Controls, Forms, Dialogs,
  7.   AppEvnts, ActnList, Menus, StdCtrls, System.ComponentModel;
  8.  
  9. type
  10.   TMainForm = class(TForm)
  11.     ApplicationEvents: TApplicationEvents;
  12.     ActionList: TActionList;
  13.     Action: TAction;
  14.     MainMenu: TMainMenu;
  15.     MenuAction: TMenuItem;
  16.     MenuException: TMenuItem;
  17.     HintButton: TButton;
  18.     lbOnMessage: TListBox;
  19.     lblOnMessage: TLabel;
  20.     lbOther: TListBox;
  21.     lblOther: TLabel;
  22.     lbIdle: TListBox;
  23.     lblOnIdle: TLabel;
  24.     lbActionUpdate: TListBox;
  25.     lblOnActionUpdate: TLabel;
  26.     function ApplicationEventsHelp(Command: Word; Data: TObject;
  27.       var CallHelp: Boolean): Boolean;
  28.     procedure ApplicationEventsActionExecute(Action: TBasicAction;
  29.       var Handled: Boolean);
  30.     procedure ApplicationEventsActionUpdate(Action: TBasicAction;
  31.       var Handled: Boolean);
  32.     procedure ApplicationEventsActivate(Sender: TObject);
  33.     procedure ApplicationEventsDeactivate(Sender: TObject);
  34.     procedure ApplicationEventsException(Sender: TObject; E: Exception);
  35.     procedure ApplicationEventsHint(Sender: TObject);
  36.     procedure ApplicationEventsIdle(Sender: TObject; var Done: Boolean);
  37.     procedure ApplicationEventsMessage(var Msg: tagMSG;
  38.       var Handled: Boolean);
  39.     procedure ApplicationEventsMinimize(Sender: TObject);
  40.     procedure ApplicationEventsRestore(Sender: TObject);
  41.     procedure ApplicationEventsShortCut(var Msg: TWMKey;
  42.       var Handled: Boolean);
  43.     procedure ApplicationEventsShowHint(var HintStr: String;
  44.       var CanShow: Boolean; var HintInfo: THintInfo);
  45.     procedure ActionExecute(Sender: TObject);
  46.     procedure MenuExceptionClick(Sender: TObject);
  47.   private
  48.     { Private declarations }
  49.   public
  50.     { Public declarations }
  51.   end;
  52.  
  53. var
  54.   MainForm: TMainForm;
  55.  
  56. implementation
  57.  
  58. {$R *.nfm}
  59.  
  60. procedure TMainForm.ApplicationEventsActionExecute(Action: TBasicAction;
  61.   var Handled: Boolean);
  62. begin
  63.   lbOther.Items.Add('Event OnActionExecute');
  64. end;
  65.  
  66. procedure TMainForm.ApplicationEventsActionUpdate(Action: TBasicAction;
  67.   var Handled: Boolean);
  68. begin
  69.   lbActionUpdate.Items.Add('Event OnActionUpdate');
  70. end;
  71.  
  72. procedure TMainForm.ApplicationEventsActivate(Sender: TObject);
  73. begin
  74.   lbOther.Items.Add('Event OnActivate');
  75. end;
  76.  
  77. procedure TMainForm.ApplicationEventsDeactivate(Sender: TObject);
  78. begin
  79.   lbOther.Items.Add('Event OnDeactivate');
  80. end;
  81.  
  82. procedure TMainForm.ApplicationEventsException(Sender: TObject;
  83.   E: Exception);
  84. begin
  85.   lbOther.Items.Add('Event OnException: ' + E.Message);
  86. end;
  87.  
  88. procedure TMainForm.ApplicationEventsHint(Sender: TObject);
  89. begin
  90.   lbOther.Items.Add('Event OnHint');
  91. end;
  92.  
  93. procedure TMainForm.ApplicationEventsIdle(Sender: TObject;
  94.   var Done: Boolean);
  95. begin
  96.   lbIdle.Items.Add('Event OnIdle');
  97. end;
  98.  
  99. procedure TMainForm.ApplicationEventsMessage(var Msg: tagMSG;
  100.   var Handled: Boolean);
  101. begin
  102.   lbOnMessage.Items.Add('X:=' + IntToStr(Msg.pt.x) + '|Y:=' + IntToStr(Msg.pt.y));
  103. end;
  104.  
  105. procedure TMainForm.ApplicationEventsMinimize(Sender: TObject);
  106. begin
  107.   lbOther.Items.Add('Event OnMinimize');
  108. end;
  109.  
  110. procedure TMainForm.ApplicationEventsRestore(Sender: TObject);
  111. begin
  112.   lbOther.Items.Add('Event OnRestore');
  113. end;
  114.  
  115. procedure TMainForm.ApplicationEventsShortCut(var Msg: TWMKey;
  116.   var Handled: Boolean);
  117. begin
  118.   lbOther.Items.Add('Event OnShortCut');
  119. end;
  120.  
  121. procedure TMainForm.ApplicationEventsShowHint(var HintStr: String;
  122.   var CanShow: Boolean; var HintInfo: THintInfo);
  123. begin
  124.   lbOther.Items.Add('Event OnShowHint');
  125. end;
  126.  
  127. procedure TMainForm.ActionExecute(Sender: TObject);
  128. begin
  129.   ShowMessage('Action executed');
  130. end;
  131.  
  132. procedure TMainForm.MenuExceptionClick(Sender: TObject);
  133. resourcestring
  134.   sExceptionRaised = 'This is an exception';
  135.  
  136. begin
  137.   raise Exception.Create(sExceptionRaised);
  138. end;
  139.  
  140. function TMainForm.ApplicationEventsHelp(Command: Word; Data: TObject;
  141.   var CallHelp: Boolean): Boolean;
  142. begin
  143.   lbOther.Items.Add('Event OnHelp');
  144.   Result := False;
  145. end;
  146.  
  147. end.
  148.